SERVICIOS

SERVICIOS

VISOR DE SERVICIOS

UNMSM

CIUDAD UNIVERSITARIA

La reconocida Ciudad Universitaria fue creada en la década de los años sesenta convirtiéndose en uno de los campus universitarios más reconocidos del país donde convergen la identidad y la historia. Sus edificaciones dan cuenta de la diversidad académica que ofrece la Decana de América y donde conviven estudiantes, docenes y personal administrativo de las facultades correspondientes a las cinco áreas del conocimiento académicas que la constituyen. En este espacio se han formado muchas de las figuras más notables del arte, ciencia y política del Perú, y de sus aulas han egresado destacados estudiosos que resaltan a nivel nacional e internacional.

BUS PERIMETRAL

📢 ¡𝒃𝒖𝒔 𝒑𝒆𝒓𝒊𝒎𝒆𝒕𝒓𝒂𝒍! De lunes a viernes, en el horario de 8:00 a.m. a 9:00 p.m., la comunidad sanmarquina podrá hacer uso de nuestro bus que recorre todo el perímetro de la Ciudad Universitaria. ¡𝗕𝗶𝗲𝗻𝘃𝗲𝗻𝗶𝗱𝗼 𝗱𝗲 𝘃𝘂𝗲𝗹𝘁𝗮, “𝗯𝘂𝗿𝗿𝗶𝘁𝗼” 𝘀𝗮𝗻𝗺𝗮𝗿𝗾𝘂𝗶𝗻𝗼!

BUS

MAPA DE CALOR

GEOVISOR

Mapa de Calor

COMEDOR UNIVERSITARIO

UNMSM

Oficina General de Bienestar Universitario - UNMSM

Estimada comunidad sanmarquina, les comunicamos que a partir del lunes 30 de octubre, la adquisición de tickets para acceder al comedor en nuestras diversas sedes será exclusivamente virtual. 🗓️ Fecha de inicio: 30 de octubre 📲 Mantener el modo oscuro deshabilitado de tu dispositivo móvil para la lectura del ticket al ingreso al servido.

🕘Horario de emisión de tickets virtuales: * Desayuno: 6:00 am -Almuerzo: 10:00 am -Cena: 4:00 pm

🕘Horario de ingreso al servido: -Desayuno: 7:00 am -Almuerzo: 12:00 pm -Cena: 5:00 pm

👀 Acceso preferencial de residentes y CONADIS no emiten ticket, es directo mostrando documentos de identidad que acredite su condición. 🏅 Deportistas pueden emitir si desean su ticket virtual o ingresar con la cola preferencial, respetando los 80 primeros en Ciudad Universitaria y 20 en Cangallo.

🔴[OBLIGATORIO] Les recordamos la importancia de tener consigo su documento físico (carnet o DNI) al momento de ingresar. Para alumnos residentes mostrar su carnet de residentes, en caso de robo o perdida, acercarse a la oficina de servicio social.

👀 [IMPORTANTE] El ticket es personal e intransferible, se estará verificando el momento del ingreso.

❌ [PENALIZACIÓN] Alumno que acumule tres tickets sin utilizar en un mismo servicio será suspendido por siete días del comedor en intervalos de quince días.

USO DE LA APLICACIÓN

TICKETS VIRTUAL

TICKETS VIRTUAL

BUS EXTERNO

BUS EXTERNO

RUTAS DEL BUS EXTERNO

📢 ¡Atención sanmarquinos! ✅ Los buses de la #UNMSM reanudan sus servicios de traslado externo. ¡Conoce las rutas! 🚌Paradero inicial 6:15 a. m. Hospital Sergio E. Bernales (Norte), hospital María Auxiliadora (Sur), grifo Vista Alegre Prolongación Javier Prado (Centro) y San Carlos - San Juan de Lurigancho (Este). 🚌Salida de la Ciudad Universitaria Administrativos: 5:50 p. m. Explanada de Facultad de Odontología Estudiantes: 6:05 p. m. Explanada de la Facultad de Derecho 🔴Las rutas de los buses estarán sujetos a modificación a raiz de las obras y construcciones que se están llevando a cabo en Lima Metropolitana.

Ruta Norte: https://www.facebook.com/watch/?v=1265586960832468

Ruta Centro: https://www.facebook.com/watch/?v=1300748160786033

Ruta Sur: https://www.facebook.com/watch/?v=1424578748327902

Ruta Este: https://www.facebook.com/watch/?v=1263155727623178

BUS EXTERNO

BUS EXTERNO

RUTA NORTE

RUTA CENTRO

BUS EXTERNO

RUTA SUR

RUTA ESTE

---
title: "Ubicate Cachimbo"
output: 
  flexdashboard::flex_dashboard:
    theme: journal
    orientation: columns
    social: menu
    source_code: embed
    vertical_layout: fill
    width: 100%  
    css: 
      - "styles.css"
---


```{r setup, include=FALSE}
library(flexdashboard)
library(leaflet)
library(foreign)
library(fontawesome)
library(knitr)
library(foreign)
library(geojsonio)
library(knitr)
library(RColorBrewer)
library(raster)


```

# SERVICIOS

## SERVICIOS  {data-width=500}


### VISOR DE SERVICIOS

```{r}
  
serv_calor <- raster("C:/Users/diego/Documents/DashBoardUNMSM/raster/servicio_calor.tif") 

perimetro <- shapefile("C:/Users/diego/Documents/MapaUNMSM/facultades/Perimetro UNMSM/Perimetro_unmsm.shp")

calor_unmsm <- raster::crop(serv_calor, extent(perimetro))

calor_mask <- mask(x = calor_unmsm, mask = perimetro)

paleta_calor_servicio <- colorNumeric(c("red", "orange", "yellow", "blue", "darkblue"), values(calor_mask),
                    na.color = "transparent")

  # Ruta al archivo DBF
  ruta_dbf <- "C:/Users/diego/Documents/DashBoardUNMSM/tabla/tabla4/srvicio_table4.dbf"
  
  # Leer el archivo DBF y convertirlo a un dataframe
  dataframe_servicios <- read.dbf(ruta_dbf)
  
  # first 20 quakes
  df.20 <- dataframe_servicios[1:59,]
  
  getColor <- function(dataframe_servicios) {
    sapply(dataframe_servicios$TIPO_DE_SE, function(TIPO_DE_SE) {
      # Personaliza los colores según los nombres de servicios
      if (TIPO_DE_SE == "LIBRERÍA/IMPRENTA") {
        "green"
      } else if (TIPO_DE_SE == "KIOSKO/BODEGA") {
        "yellowgreen"
      } else if (TIPO_DE_SE == "CAFETERIA") {
        "orange"
      } else if (TIPO_DE_SE == "BIBLIOTECA") {
        "blue"
      } else {
        "red"
      }
    })
  }
  
  icons <- awesomeIcons(
    icon = 'ios-close',
    iconColor = 'black',
    library = 'ion',
    markerColor = getColor(df.20)
  )
  
  
  # Leer el archivo GeoJSON
  facultades <- geojsonio::geojson_read("C:/Users/diego/Documents/DashBoardUNMSM/Json/Facultad_UNMSM.geojson", what = "sp")
  servicios <- geojsonio::geojson_read("C:/Users/diego/Documents/DashBoardUNMSM/Json/SERV_UNMSM.geojson", what = "sp")
  
  # Cargar datos del GeoJSON (líneas)
  ruta_burro <- geojsonio::geojson_read("C:/Users/diego/Documents/MapaUNMSM/facultades/geojson/ruta_burro.geojson", what = "sp")
  
  paraderos <- geojsonio::geojson_read("C:/Users/diego/Documents/MapaUNMSM/facultades/geojson/paraderos.geojson", what = "sp")
  
  
  
  
  # Crear el mapa
  m <- leaflet() %>%
    setView(lng = -77.082, lat = -12.056, zoom = 16)  %>%
    addProviderTiles("MapBox", options = providerTileOptions(
      ID = "mapbox.light",
      accessToken = Sys.getenv('MAPBOX_ACCESS_TOKEN')
    ))
  
  
  
  # Añadir control de capas y leyenda
  m <- m %>%
    addLayersControl(
      overlayGroups = c("Facultades", "CartoDB","Ruta Bus","Servicios", "Paraderos", "Mapa de calor"),  # Grupos de capas
      options = layersControlOptions(collapsed = TRUE)
    ) %>%
    addLegend(
      position = "bottomright",
      colors = c("green","orange","dodgerblue","red","blue","lightblue","lightsalmon", "gray", "purple"),
      labels = c("Librería/Imprenta","Cafetería","Biblioteca","Kiosko/Bodega
","Paraderos","Bus Perimetral","Facultades", "CartoDB","Hora de Cierre"),
      title = "Leyenda"
    )
  
  # Crear etiquetas
  labels <- sprintf(
    "<strong>%s</strong>",
    facultades$NOMFAC
  ) %>% lapply(htmltools::HTML)
  
  # Añadir polígonos al mapa
  m <- m %>% 
    addPolygons(data=facultades,
      weight = 2,
      opacity = 1,
      color = "lightsalmon",
      dashArray = "0.5",
      fillOpacity = 0.7,
      highlightOptions = highlightOptions(
        weight = 2,
        color = "#000",
        dashArray = "",
        fillOpacity = 0.9,
        bringToFront = TRUE),
      label = labels,
      labelOptions = labelOptions(
        style = list("font-weight" = "normal", padding = "3px 8px"),
        textsize = "15px",
        direction = "auto"),
      group = "Facultades"  # Agregar grupo para el control de capas
    ) %>%
    addProviderTiles(providers$CartoDB.Positron, group = "CartoDB") %>%
    addMiniMap(position = "bottomleft",width = 100, height = 80)
  
  m <- m %>%
  addEasyButton(easyButton(
    icon="fa-globe", title="Zoom Inicial",
    onClick=JS("function(btn, map){ map.setZoom(16); }"))) %>%
  addEasyButton(easyButton(
    icon="fa-crosshairs", title="Localízame",
    onClick=JS("function(btn, map){ map.locate({setView: true}); }")))
  
  labels_ruta <- sprintf(
    "<strong>Distancia:</strong> %s m",
    ruta_burro$Longitud
  ) %>% lapply(htmltools::HTML)
  
    # Añadir líneas con etiquetas emergentes
  m <- m %>% addPolylines(
    data = ruta_burro,
    color = "lightskyblue",     # Color del borde
    fillOpacity = 0.2,# Color de las líneas
    weight = 8,            # Grosor de las líneas
    group = "Ruta Bus",  # Grupo para el control de capas
    popup = ~paste( ruta_burro$Longitud, "metros"),
    label = labels_ruta,
    labelOptions = labelOptions(
      style = list("font-weight" = "normal", padding = "3px 8px"),
      textsize = "15px",
      direction = "auto")
  )
  
  labels_paraderos <- sprintf(
  "<strong>Paradero:</strong> %s",
  paraderos$Paradero
) %>% lapply(htmltools::HTML)
  
  
   m <- m %>% addPolygons(
    data = paraderos,
    fillColor = "blue",  # Color de relleno
    color = "blue",     # Color del borde
    fillOpacity = 0.5,    # Opacidad del relleno
    weight = 6,            # Grosor del borde
    group = "Paraderos",  # Información emergente al hacer clic
    label = labels_paraderos)
 
  m <- m %>% addRasterImage(calor_mask, colors = paleta_calor_servicio, opacity = 0.6,
  group = "Mapa de calor") %>%
  addLegend(pal = paleta_calor_servicio, values = values(calor_mask),
            title = "Hora de Cierre [h]")
  
  
  labels_serv <- sprintf(
    "<strong>%s</strong><br/>Horario: %s - %s",
    df.20$TIPO_DE_SE, df.20$HOR_INI, df.20$HOR_FIN
  ) %>% lapply(htmltools::HTML)
  
  m <- m %>%
    addAwesomeMarkers(data = df.20, ~ESTE, ~NORTE, icon=icons, label=labels_serv, group = "Servicios") %>%
    setView(lng = -77.082, lat = -12.056, zoom = 16)
  
  

  
  
  # Mostrar el mapa
  m


```

## UNMSM  {data-width=200}

### **CIUDAD UNIVERSITARIA**

La reconocida Ciudad Universitaria fue creada en la década de los años sesenta convirtiéndose en uno de los campus universitarios más reconocidos del país donde convergen la identidad y la historia. Sus edificaciones dan cuenta de la diversidad académica que ofrece la Decana de América y donde conviven estudiantes, docenes y personal administrativo de las facultades correspondientes a las cinco áreas del conocimiento académicas que la constituyen. En este espacio se han formado muchas de las figuras más notables del arte, ciencia y política del Perú, y de sus aulas han egresado destacados estudiosos que resaltan a nivel nacional e internacional.


### BUS PERIMETRAL

📢 ¡𝒃𝒖𝒔 𝒑𝒆𝒓𝒊𝒎𝒆𝒕𝒓𝒂𝒍! De lunes a viernes, en el horario de 8:00 a.m. a 9:00 p.m., la comunidad sanmarquina podrá hacer uso de nuestro bus que recorre todo el perímetro de la Ciudad Universitaria. ¡𝗕𝗶𝗲𝗻𝘃𝗲𝗻𝗶𝗱𝗼 𝗱𝗲 𝘃𝘂𝗲𝗹𝘁𝗮, “𝗯𝘂𝗿𝗿𝗶𝘁𝗼” 𝘀𝗮𝗻𝗺𝗮𝗿𝗾𝘂𝗶𝗻𝗼!

### BUS

```{r}

knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/bus.jpg")

```


# MAPA DE CALOR
## GEOVISOR
### **Mapa de Calor**
```{r}
serv_calor <- raster("C:/Users/diego/Documents/DashBoardUNMSM/raster/servicio_calor.tif") 



perimetro <- shapefile("C:/Users/diego/Documents/MapaUNMSM/facultades/Perimetro UNMSM/Perimetro_unmsm.shp")

puntos_de_serv <- shapefile("C:/Users/diego/Documents/DashBoardUNMSM/Shapes/servicios/puntos_servi_spline.shp")



calor_unmsm <- raster::crop(serv_calor, extent(perimetro))

calor_mask <- mask(x = calor_unmsm, mask = perimetro)
paleta_serv <- colorRampPalette(c("red","orange", "yellow", "blue","darkblue"))

plot(calor_mask,col = paleta_serv(500) , main= "Hora de Cierre de los Servicios [h]", alpha = 0.8)
plot(perimetro, add=TRUE)
plot(facultades, add=TRUE,col = "gray", border = "white", lwd = 2)
plot(puntos_de_serv, add=TRUE, pch=8, col="green", cex=.75)



```

# COMEDOR UNIVERSITARIO

## UNMSM

### **Oficina General de Bienestar Universitario - UNMSM**

Estimada comunidad sanmarquina, les comunicamos que a partir del lunes 30 de octubre, la adquisición de tickets para acceder al comedor en nuestras diversas sedes será exclusivamente virtual.
🗓️ Fecha de inicio: 30 de octubre
📲 Mantener el modo oscuro deshabilitado de tu dispositivo móvil para la lectura del ticket al ingreso al servido.

🕘Horario de emisión de tickets virtuales:
* Desayuno: 6:00 am
-Almuerzo: 10:00 am
-Cena: 4:00 pm

🕘Horario de ingreso al servido:
-Desayuno: 7:00 am
-Almuerzo: 12:00 pm
-Cena: 5:00 pm

👀 Acceso preferencial de residentes y CONADIS no emiten ticket, es directo mostrando documentos de identidad que acredite su condición.
🏅 Deportistas pueden emitir si desean su ticket virtual o ingresar con la cola preferencial, respetando los 80 primeros en Ciudad Universitaria y 20 en Cangallo.

🔴[OBLIGATORIO] Les recordamos la importancia de tener consigo su documento físico (carnet o DNI) al momento de ingresar. Para alumnos residentes mostrar su carnet de residentes, en caso de robo o perdida, acercarse a la oficina de servicio social.

👀 [IMPORTANTE] El ticket es personal e intransferible, se estará verificando el momento del ingreso.

❌ [PENALIZACIÓN] Alumno que acumule tres tickets sin utilizar en un mismo servicio será suspendido por siete días del comedor en intervalos de quince días.

### **USO DE LA APLICACIÓN**

```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/app_uso.jpg")
```

## **TICKETS VIRTUAL**
### **TICKETS VIRTUAL**

```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/apk_unmsm.jpg")
```

# BUS EXTERNO

## BUS EXTERNO

### RUTAS DEL BUS EXTERNO
📢 ¡Atención sanmarquinos!
✅ Los buses de la #UNMSM reanudan sus servicios de traslado externo. ¡Conoce las rutas!
🚌Paradero inicial
6:15 a. m. Hospital Sergio E. Bernales (Norte), hospital María Auxiliadora (Sur), grifo Vista Alegre Prolongación Javier Prado (Centro) y San Carlos - San Juan de Lurigancho (Este). 
🚌Salida de la Ciudad Universitaria
Administrativos: 
5:50 p. m. Explanada de Facultad de Odontología
Estudiantes: 
6:05 p. m. Explanada de la Facultad de Derecho
🔴Las rutas de los buses estarán sujetos a modificación a raiz de las obras y construcciones que se están llevando a cabo en Lima Metropolitana.

Ruta Norte: 
https://www.facebook.com/watch/?v=1265586960832468

Ruta Centro: 
https://www.facebook.com/watch/?v=1300748160786033

Ruta Sur: 
https://www.facebook.com/watch/?v=1424578748327902

Ruta Este: 
https://www.facebook.com/watch/?v=1263155727623178

### BUS EXTERNO

```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/bus externo.jpg")
```

## BUS EXTERNO

### RUTA NORTE

```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/norte.jpg")
```

### RUTA CENTRO

```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/centro.jpg")
```

## BUS EXTERNO

### RUTA SUR

```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/sur.jpg")
```

### RUTA ESTE

```{r}
knitr::include_graphics("C:/Users/diego/Documents/DashBoardUNMSM/logos e imagenes/este.jpg")
```